home *** CD-ROM | disk | FTP | other *** search
- //---------------------------------------------------------------------------
- #include <vcl\condefs.h>
- #include <vcl\registry.hpp>
-
- #pragma hdrstop
- //---------------------------------------------------------------------------
- USERES("Unreg.res");
- //---------------------------------------------------------------------------
- int main(int argc, char **argv)
- {
- TRegistry *Registry;
- Registry = new TRegistry;
- Registry->RootKey = HKEY_LOCAL_MACHINE;
- System::AnsiString myString = "\\software\\borland\\VCL Class Organizer";
- if(Registry->KeyExists(myString))
- {
- if (Registry->DeleteKey(myString))
- {
- ::MessageBox(0,"Successfully deleted keys!","Status",MB_OK);
- }
- else
- {
- ::MessageBox(0,"Error deleting keys!","Status",MB_OK);
- }
- }
- else
- {
- ::MessageBox(0,"Keys do not exist!","Status",MB_OK);
- }
-
-
- delete Registry;
- return 0;
- }
- //---------------------------------------------------------------------------
-
-